home *** CD-ROM | disk | FTP | other *** search
/ Scene 96 / Scene 96 International Edition (Zyklop Software) (Disc 2) (1997).iso / misc / coding / e_os300b / ex_font / font.asm < prev    next >
Encoding:
Assembly Source File  |  1996-08-01  |  1.0 KB  |  55 lines
  1.  
  2. Locals
  3. .386
  4. CODE32 SEGMENT PUBLIC PARA 'CODE' USE32
  5. ASSUME  CS:CODE32,DS:CODE32,ES:CODE32
  6.  
  7. INCLUDE ..\resource\eos.inc
  8. INCLUDE font.inc
  9.  
  10. Start32:
  11.     mov ax,13h
  12.     DosInt 10h
  13.  
  14.     textcolor 15
  15.     writeLn 'WARLOCK''S FONT SYSTEM V1.0 FOR EOS :)'
  16.     textcolor 14
  17.     write 'AND NOW DA NEXT LINE IN YELLOW - WOW !!!'
  18.     writeLn ' - AND DEMONSTRATING: CROSS X MAXIMUM VALUE....'
  19.     textcolor 10
  20.     write 'SEE IN CODE: "abc" = always "ABC" only letters-in-low'
  21.     writeln ''
  22.     textcolor 11
  23.     write 'i can do GOTOXY, too...see: 10,10'
  24.     gotoxy 10,10
  25.      textcolor 15
  26.     write 'AND WRITE HEX AL=12H VALUE: '
  27.     textcolor 12
  28.     mov al,12h ;write 12h to screen
  29.     write8h
  30.     gotoxy 0,15
  31.     writeln 'my coordinates :) 0,15'
  32.     textcolor 15
  33.     write 'write hex ax value (for exp.4321h): '
  34.     mov ax,4321h
  35.     write16h
  36.     writeln ''
  37.     write 'and yellow eax'' value coz my hex phone: '
  38.     textcolor 14
  39.     mov eax,0422011h
  40.     write32h
  41.     gotoxy 10,23
  42.     write 'press ESC'
  43.  
  44.  
  45.  EscKey:
  46.     in al,60h
  47.     cmp al,1
  48.     jne EscKey
  49.  
  50.     mov ax,04c00h
  51.     int 21h
  52.  
  53. CODE32 ENDS
  54.  
  55. END